home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / internet / rose / scripts.z / DATEX.SCR < prev    next >
Encoding:
Text File  |  1992-08-19  |  2.2 KB  |  65 lines
  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1991                                                 !  
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !  DATEX Script:                                                      !    
  10. !     Connect to Datex-P                                              !
  11. !     Success:  returns %Success                                      !
  12. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  13. !                                      !
  14. !     $Revision::   1.5      $                                        !
  15. !                                      !
  16. !---------------------------------------------------------------------!
  17. !                                                                     !
  18. ! This version fixes the Datex-P problems with the east-german nodes  !
  19. !                                                                     !
  20. !---------------------------------------------------------------------!
  21.  
  22. show "Connecting to Datex-P";
  23. Tries = 5;
  24. on cancel goto Return_Cancel;
  25.  
  26. Wait_Datex:
  27.  
  28.     if Tries = 0 goto Datex_Failure;
  29.  
  30.     Tries = Tries - 1;
  31.     wait                         ! Just wait a while
  32.     "VOID"  goto Void_Label  !
  33.     until 15;                    !
  34.     send ".";
  35.     wait                         ! wait again
  36.     "VOID"  goto Void_Label  !
  37.     until 15;                    !
  38.     send %CR;
  39.     wait
  40.     "DATEX-P:"              goto Send_Datex_Host
  41.     until 30;
  42.  
  43.     goto Wait_Datex;
  44.  
  45. Send_Datex_Host:
  46.  
  47.     send "r 4569002330" & %CR;
  48.  
  49.     wait
  50.     "User ID:"           goto Return_Success,
  51.     "Host Name:"         goto Return_Success
  52.     until 60;
  53.  
  54.     goto Wait_Datex;
  55.  
  56. Datex_Failure:
  57.     define %FailureMsg = "Datex-P not responding";
  58.     exit %Failure;
  59.  
  60. Return_Cancel:
  61.     exit %Cancel;
  62.  
  63. Return_Success:
  64.     exit %Success;
  65.